ALTER TABLE AMBTRS ADD Son_Kul_Tarih CHAR(10)
ALTER TABLE AMBTRS ADD VKS CHAR(5)
ALTER TABLE AMBTRS ADD UygYolu CHAR(50)
ALTER TABLE AMBTRS ADD UygSikligi FLOAT
ALTER TABLE AMBTRS ADD UygYapUnvan CHAR(50)
ALTER TABLE AMBTRS ADD UygYapAdi CHAR(50)





alter table PADOKKARTI add Irk CHAR(26)
alter table PADOKKARTI add Aciklama CHAR(500)


ALTER TABLE HAYVANHAREKETFISI ADD Fis_No CHAR(10)
ALTER TABLE HAYVANHAREKETFISI ADD Aciklama CHAR(500)
ALTER TABLE HAYVANHAREKETFISI ADD Sayi INT

alter table HAYVANCIKISFISI  ADD KamyonAgirligi FLOAT
alter table HAYVANCIKISHAREKET add AnaAgirlik FLOAT

alter table HAYVANKARTI add CF_Giris_Tarih DATETIME
alter table HAYVANKARTI add CF_Giris_KG float

alter table HAYVANHAREKET add Eski_Durum CHAR(15)
alter table HAYVANHAREKET add Yeni_Durum CHAR(15)

CREATE TABLE IP_PADOKHAR(
IP CHAR(10))
INSERT INTO IP_PADOKHAR (IP) VALUES('0000000000')


CREATE TABLE IP_GIRISHAR(
IP CHAR(10))

INSERT INTO IP_GIRISHAR (IP) VALUES('0000000000')

CREATE TABLE HAYVANGIRISFISI(
Giris_ID INT NOT NULL IDENTITY,
Fis_No CHAR(10),
Tarih DATETIME,
Belge_No CHAR(21),
Aciklama CHAR(500),
HayvanSayisi FLOAT,
TopKilo FLOAT,
Gun CHAR(2),
Ay CHAR(2),
Yil CHAR(4),
Hafta CHAR(2)
)


CREATE TABLE HAYVANGIRISHAREKET(
Hareket_ID INT NOT NULL IDENTITY,
Giris_ID INT,
Ciftlik_ID INT,
Kulak_No CHAR(15),
Giris_Tarihi DATETIME,
Eski_Padok_ID INT,
Yeni_Padok_ID INT,
Giris_Kilo FLOAT)



CREATE VIEW HAYVANANALIZ as SELECT HAYVANKARTI.Ciftlik_No, HAYVANKARTI.Kulak_No, HAYVANKARTI.Bakanlik_No, HAYVANKARTI.Alim_Tarihi, HAYVANKARTI.Alis_Agirligi, HAYVANKARTI.CF_Giris_Tarih, HAYVANKARTI.CF_Giris_KG, PADOKKARTI.Padok_Adi, TARTIMSONUCLARI.Tartim_Tarih, TARTIMSONUCLARI.Tartim_Sonucu,  TARTIMSONUCLARI.Onceki_Tartim_Tarih, TARTIMSONUCLARI.Onceki_Tartim_Kilo ,convert(money,(Tartim_Tarih-Alim_Tarihi) )as TartimGun,convert(money,(Tartim_Sonucu-Alis_Agirligi)/ convert(money,(Tartim_Tarih-Alim_Tarihi))) as Verim,convert(money,(Onceki_Tartim_Tarih-Alim_Tarihi) )as OncekiTartimGun,convert(money,(Onceki_Tartim_Kilo-Alis_Agirligi)/ convert(money,(Onceki_Tartim_Tarih-Alim_Tarihi))) as OncekiVerim FROM HAYVANKARTI LEFT JOIN PADOKKARTI ON(HAYVANKARTI.Padok_ID=PADOKKARTI.Padok_ID) LEFT JOIN TARTIMSONUCLARI ON(HAYVANKARTI.Ciftlik_No=TARTIMSONUCLARI.Ciftlik_ID AND TARTIMSONUCLARI.Tartim_Tarih+TARTIMSONUCLARI.Saat=(SELECT max(Tartim_Tarih+Saat)FROM TARTIMSONUCLARI S2 WHERE TARTIMSONUCLARI.Ciftlik_ID=S2.Ciftlik_ID)) 
wHere  (HAYVANKARTI.Durum='KARANTNADA'OR HAYVANKARTI.Durum='KARANTNA 1'OR HAYVANKARTI.Durum='KARANTNA 2'OR HAYVANKARTI.Durum='FTLKTE'OR HAYVANKARTI.Durum='REVRDE'OR HAYVANKARTI.Durum='PADOKTA') 


Dim Fis As String
Call Grid_Bagla(Rst_Kontrol, "SELECT * FROM HAYVANHAREKETFISI")
Do While Not Rst_Kontrol.EOF
    Fis = Siradan_Al("PADOKHAR")
    Call Baglanti_Ac(Rst_Kayit, "SELECT * FROM HAYVANHAREKETFISI WHERE Hareket_Fisi=" & Rst_Kontrol.Fields("Hareket_Fisi"))
        Rst_Kayit.Fields("Fis_No") = Fis
    Rst_Kayit.UpdateBatch adAffectAllChapters
    Call Siraya_Yaz("PADOKHAR", Fis)
Rst_Kontrol.MoveNext
Loop
MsgBox "lem Bitti"




CREATE VIEW HAYVANANALIZ as 
 SELECT 
HAYVANKARTI.Ciftlik_No, 
HAYVANKARTI.Kulak_No, 
HAYVANKARTI.Bakanlik_No, 
HAYVANKARTI.Alim_Tarihi, 
HAYVANKARTI.Alis_Agirligi, 
HAYVANKARTI.CF_Giris_Tarih, 
HAYVANKARTI.CF_Giris_KG, 
PADOKKARTI.Padok_Adi, 
PADOKKARTI.Padok_Kapasite, 
TARTIMSONUCLARI.Tartim_Tarih, 
TARTIMSONUCLARI.Tartim_Sonucu,  
TARTIMSONUCLARI.Onceki_Tartim_Tarih, 
TARTIMSONUCLARI.Onceki_Tartim_Kilo, 
convert(money,(Tartim_Tarih-Alim_Tarihi) )as TartimGun,
case when convert(money,(isnull(Tartim_Sonucu,0)-isnull(Alis_Agirligi,0)))>0  then
convert(money,(isnull(Tartim_Sonucu,0)-isnull(Alis_Agirligi,0))/ convert(money,(isnull(Tartim_Tarih,0)-isnull(Alim_Tarihi,0)))) else 0 end as Verim ,
convert(money,(Onceki_Tartim_Tarih-Alim_Tarihi) )as OncekiTartimGun,
case when convert(money,(Onceki_Tartim_Kilo-Alis_Agirligi))>0 then
convert(money,(Onceki_Tartim_Kilo-Alis_Agirligi)/ convert(money,(Onceki_Tartim_Tarih-Alim_Tarihi))) 
else 0 end  as OncekiVerim 
FROM HAYVANKARTI 
LEFT JOIN PADOKKARTI ON(HAYVANKARTI.Padok_ID=PADOKKARTI.Padok_ID) 
LEFT JOIN TARTIMSONUCLARI ON(HAYVANKARTI.Ciftlik_No=TARTIMSONUCLARI.Ciftlik_ID AND TARTIMSONUCLARI.Tartim_Tarih+TARTIMSONUCLARI.Saat=(SELECT max(Tartim_Tarih+Saat)FROM TARTIMSONUCLARI S2 WHERE TARTIMSONUCLARI.Ciftlik_ID=S2.Ciftlik_ID))
 wHere  (HAYVANKARTI.Durum='KARANTNADA'OR HAYVANKARTI.Durum='KARANTNA 1'OR HAYVANKARTI.Durum='KARANTNA 2'OR HAYVANKARTI.Durum='FTLKTE'OR HAYVANKARTI.Durum='REVRDE'OR HAYVANKARTI.Durum='PADOKTA')